20 NU$=CHR$(0)
50 PRINTF1$"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
51 PRINT"[221]                                [221]"
52 PRINT"[221]                                [221]"
53 PRINT"[221]  FILETRANS VIZA -> FONTMASTER  [221]"
54 PRINT"[221]                                [221]"
55 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
80 GOSUB 1000
90 FORI=1TO18:PRINT:NEXT
91 :
92 :
93 :
94 :
95 :
96 :      REM FILENAMEN HOLEN
97 :
98 :
99 :
100 OPEN15,8,15,"I"
120 GOSUB2000:INPUT"READ FILENAME:";N$
130 NL$=N$+",P,R"
140 OPEN2,8,2,NL$
150 INPUT#15,F1,F$,F2,F3
160 PRINT:PRINTTAB(5)F$;:IFF1=0THEN 200
161 CLOSE2
170 GOSUB 3100
190 GOTO120
200 PRINT:NS$=LEFT$(N$,13)+".FM"
210 GOSUB2000:PRINT"SAVE FILENAME:  "NS$
220 INPUT"[145]";NS$
230 NW$="0:"+NS$+",S,W"
240 OPEN3,8,3,NW$
250 INPUT#15,F1,F$,F2,F3
260 PRINTTAB(5)""F$;:IFF1=0THEN 300
261 CLOSE3
263 IFF1=63THEN PRINT"  REPLACE?";:GOSUB3000:IFC=0THEN 200
270 GOSUB 8000
291 :
292 :
293 :
294 :
295 :    REM HEADER ZUSAMMENSTELLEN
296 :
297 :
298 :
299 :
300 GOSUB 2000:PRINT"CHOOSE HEADER, PLEASE"
305 HD$=CHR$(97)+"UO10"
306 GOSUB 2000:PRINT"JUSTIFICATION ON";
307 GOSUB 3000:IFC=1THENHD$=HD$+":JS"
308 PRINT TAB(5)"PROPORTIONAL ON ";
309 GOSUB 3000:IFC=1THENHD$=HD$+":PY"
310 A=72:GOSUB 2000:PRINT"PAPERLENGTH      "A"[157][157][157][157][157]";
311 INPUT A:GOSUB2100:HD$=HD$+":PL"+A$
312 A=6:PRINTTAB(5)"LINES PER INCH   "A"[157][157][157][157]";
313 INPUT A:GOSUB2100:HD$=HD$+":LS"+A$
316 A=0:GOSUB 2000:PRINT"TOP MARGIN       "A"[157][157][157][157]";
317 INPUT A:GOSUB2100:HD$=HD$+":TM"+A$
318 A=10:PRINT TAB(5)"BOTTOM MARGIN    "A"[157][157][157][157][157]";
319 INPUT A:GOSUB2100:HD$=HD$+":BM"+A$
320 HD$=HD$+CHR$(13)
321 :
322 :
323 :
324 :
325 :     REM VW-HEADER ELEMINIEREN
326 :
327 :
328 :
329 :
330 GOSUB 2000:PRINT"WORKING..."
331 PRINTTAB(5)"PLEASE WAIT !"
335 B$=CHR$(241)
340 GET#2,A$:IFST<>0THEN 500
341 IF A$<>B$ THEN340
350 GOSUB 2000:PRINT"WRITING FM HEADER...  ";
351 PRINT#3,HD$;:IFST<>0THEN 500
362 :
363 :
364 :
365 :       REM TRANSFER-SCHLEIFE
366 :
367 :
368 :
400 SYS 49152,A,220,219,230,235,241
410 ONAGOSUB 550,750,600,800,900
420 IFST=0THEN400:REM END OF FILE?
490 :
491 :
492 :
495 :      REM   ENDE
496 :
497 :
498 :
500 INPUT#15,F1,F$,F2,F3
503 GOSUB2000:PRINT"FILE CLOSED"
505 PRINTTAB(5)"DISK-STATUS:"F1;F$
506 CLOSE2:CLOSE3:CLOSE15
510 GOSUB 2000
512 PRINT"MORE FILES";
513 GOSUB3000
520 IFC=0 THEN END
530 GOTO100
540 :
541 REM *******************************
542 :
543 :
544 :
545 :       REM CR AUSGEBEN
546 :
547 :
550 TZ=0:IFLM=LA THEN 580
555 LM=LA
560 A=LM:GOSUB 2100:LM$=A$
570 PRINT#3,CHR$(13)CHR$(97)"IN+0:LM"LM$;
580 PRINT#3,CHR$(13);:RETURN
592 :
593 :
594 :       REM FORMATZEILE HOLEN
595 :
596 :
600 GOSUB2000:PRINT"CHECKING FORMAT LINE...  ";
610 L=2:LM=L-1:TB=-1:TZ=0
615 FOR L=2TO255
620 GET#2,A$
621 V=ASC(A$+NU$):IF ST THEN500
630 IF V=220 THEN 700:REM CR
640 IF V=219 THEN TB=TB+1:TA(TB)=L:IFTB=0THEN LM=L:REM TAB SETZEN+LM
650 NEXT L
697 :
698 :     REM FORMATZEILE SCHREIBEN
699 :
700 LA=LM:A=LM:GOSUB2100:LM$=A$
705 A=L-2:GOSUB2100:RM$=A$
710 PRINT#3,CHR$(97)"LM"LM$;
715 PRINT#3,CHR$(58)"RM"RM$;CHR$(13);
720 PRINT"OK":L=255:NEXTL
725 IF TB=0THEN TA(1)=LM+1
726 IF TB=-1THEN TA(1)=1
730 RETURN
740 :
741 :
742 :      REM TAB
743 :
744 :
750 TZ=TZ+1:IFTZ>TB THEN TZ=1:IFTB>0THEN PRINT#3,CHR$(13);
760 A=TA(TZ):GOSUB2100:TA$=A$
770 PRINT#3,CHR$(97)"TA"TA$;CHR$(124);
780 RETURN
790 :
791 :
792 :      REM INDENT
793 :
794 :
800 REM
805 TZ=TZ+1:IFTZ>TB THEN TZ=1:IFTB>0THEN PRINT#3,CHR$(13);
810 A=LM:LM=TA(TZ):IN=A-LM
820 A=LM:GOSUB2100:LM$=A$
830 IN$=STR$(IN)
840 PRINT#3,CHR$(97)"LM"LM$":TA"LM$":IN"IN$;CHR$(124);
850 RETURN
892 :
893 :
894 :      REM NEXT PAGE
895 :
896 :
900 PRINT#3,CHR$(97)"NP":RETURN
986 :
987 :
988 REM *******************************
989 :
990 :
991 :
992 :
993 :
994 :     REM INIT
995 :
996 :
997 :
998 :
999 :
1000 DIM N(255),TA(255)
1010 F1$="[152]":F2$=""
1020 K1$="":K2$=""
1021 KD$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"+CHR$(13)
1022 KD$=KD$+CHR$(13)+""+KD$+F1$+"[145][145][145][145][145][145]"
1023 KL$="                                       "+CHR$(13)
1025 FORI=1TO5:KM$=KM$+KL$:NEXT
1030 KM$=KM$+"[145][145][145][145]     "
1100 FORI=49152 TO 49322:READA:POKEI,A
1110 NEXT
1190 V=49408
1200 FORI=0TO31:POKEV+I,I+64:NEXT
1210 FORI=32TO63:POKEV+I,I:NEXT
1211 FORI=65TO95:POKEV+I,I+128:NEXT
1220 POKEV+58,62
1221 POKEV+59,60
1222 POKEV+101,59 :REM AE KLEIN
1223 POKEV+118,58 :REM OE KLEIN
1224 POKEV+120,64 :REM UE KLEIN
1225 POKEV+121,93 :REM AE GROSS
1226 POKEV+122,91 :REM OE GROSS
1227 POKEV+123,127:REM UE GROSS
1228 POKEV+124,92 :REM SS
1229 POKEV+220,13 :REM RETURN
1230 POKEV+237,234:REM FETT
1231 POKEV+238,251:REM UNDERLINE
1232 POKEV+239,245:REM SUPERSCRIPT
1233 POKEV+236,246:REM SUBSCRIPT
1900 RETURN
1987 :
1988 :
1989 :
1990 :
1991 :
1992 :
1993 :
1994 :    REM AUSGABE WECHSELN
1995 :
1996 :
1997 :
1998 :
1999 :
2000 REM KASTEN
2010 IFKF=0THENPRINTF1$K1$K2$KD$ K1$F2$KD$KM$;:KF=1:RETURN
2020 IFKF=1THENPRINTF1$K1$KD$ K1$K2$F2$KD$KM$;
2030 KF=0:RETURN
2090 :
2091 :
2092 :
2093 :
2094 :
2095 :     REM A IN A$ WANDELN
2096 :
2097 :
2098 :
2099 :
2100 A$=STR$(A):IFA<0THEN RETURN
2110 A$=RIGHT$(A$,LEN(A$)-1)
2120 RETURN
2990 :
2991 :
2992 :
2993 :
2994 :
2995 :     REM TASTENABFRAGE GET Y/N
2996 :
2997 :
2998 :
2999 :
3000 PRINT" <Y>[157][157]";
3020 GOSUB 3100
3030 IFA$="Y"ORA$=CHR$(13) THEN C=1:A$="Y":GOTO3060
3040 IFA$<>"N"THEN3020
3050 C=0
3060 PRINT A$
3070 RETURN
3080 :
3081 :
3082 :
3100 POKE204,0
3110 GETA$:IFA$=""THEN3110
3120 POKE204,1:RETURN
7990 :
7991 :
7992 :
7993 :
7994 :
7995 :    REM  FILE SCRATCHEN
7996 :
7997 :
7998 :
7999 :
8000 :
8030 NO$="S0:"+NS$:PRINT#15,NO$
8040 INPUT#15,F1,F$,F2,F3:IFF1<>1THEN PRINT F$:GOTO500
8050 OPEN3,8,3,NW$:RETURN
8051 DATA169,0,141,0,195,32,156,192,176,33,32,139,176,133,73,132,74,32,156
8052 DATA192,176,21,238,0,195,208,3,76,8,175,32,158,183,138,174,0,195,157
8053 DATA0,195,76,17,192,32,204,255,169,0,133,252,162,2,32,198,255,32,207
8054 DATA255,174,0,195,240,8,221,0,195,240,10,202,208,246,230,252,164,252
8055 DATA153,0,194,134,251,166,144,134,36,208,9,165,251,208,5,166,252,232
8056 DATA208,216,165,252,240,37,32,204,255,162,3,32,201,255,160,0,200,185
8057 DATA0,194,170,189,0,193,32,210,255,165,144,208,26,196,252,208,237,165
8058 DATA251,208,4,165,36,240,163,169,0,164,251,32,145,179,165,14,32,194,169
8059 DATA165,36,133,144,32,204,255,96,32,121,0,201,44,240,2,56,96,32,115,0
8060 DATA24,96,96